$file1 = "output_hthgu_hguplus.txt";
open(BUFF,$file1);
while($line = <BUFF>)
{
	chomp $line;
	$line =~ s/\n//g;
	$line =~ s/\r//g;
	@array = split("\t",$line);
	$hash{$array[5]."\t".$array[6]} = "k";
}
open(BUFF1,"probeset_probes_HG-U133_Plus_2_transcript_refseq.cdf");
open(WRBUFF,">transcipts_refseq_hthgu.txt");
print WRBUFF "transcripts\n";
while($line = <BUFF1>)
{
        chomp  $line;
        $line =~ s/\n//g;
        $line =~ s/\r//g;
        @array = split("\t",$line);
        if($hash{$array[1]."\t".$array[2]} eq "k")
	{
		$hash1{$array[0]} = "k";

	}
}
while ( my ($key, $value) = each(%hash1) ) {
        print WRBUFF "$key\n";
    }
